home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / hsolve_j < prev    next >
Internet Message Format  |  1995-03-31  |  6KB
  1. From: Jakob Hilmer <jhilmer@ruc.dk>
  2. Subject:  v04i044:  hsolve_jh - Multi Equaion Solver v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Keywords: Hsolve an multi equation solver like all func in hp card (V1.0)
  5. Organization: Roskilde Universitetscenter, Danmark
  6. Followup-To: comp.sys.hp48
  7. Approved: spell@seq.uncwil.edu
  8.  
  9. Checksum: 4247266643 (verify with brik -cv)
  10. Submitted-by: Jakob Hilmer <jhilmer@ruc.dk>
  11. Posting-number: Volume 4, Issue 44
  12. Archive-name: hsolve_jh/part01
  13.  
  14. BEGIN_DOC hsolve.doc
  15.  
  16.                                  HSOLVER V1.0
  17.  
  18.                              (c) Jakob Hilmer 1992
  19.  
  20. This Multi Equations Solver works like the multi equations solver in HP
  21. equations card.
  22.  
  23. How to install:
  24.  
  25.     1    Download 'hsolve.lib' to the HP (binary mode).
  26.     2    Press hsolve.lib.
  27.     3    Press 0 press STO.
  28.     4    Turn on off your calculator.
  29.  
  30. How to use:
  31.  
  32.     1    Store the list with equations in 'EQ' or the name of the list.
  33.     2    Execute HINIT to init the solver. (which make the var 'Hpar')
  34.     3    Store knowns values of variables and guess. 
  35.     4    Make a list of the  known variables.
  36.     5    Execute HFIND to start solveing for unknown.
  37.  
  38. To solve for new values just repeat step 3 - 5.
  39.  
  40. ex. 1: ohm's law.
  41.  
  42. { 'U=R*I' 'P=U*I' 'P=I^2*R' 'P=U^2/R } STEQ
  43. HINIT 
  44. 10000 'R' STO 10 'U' STO 
  45. { 'R' 'U' }
  46. HFIND
  47.  
  48. The stack return:
  49.  
  50. 4:    'U=R*I'
  51. 3:    I: .001
  52. 2:    'P=U*I'
  53. 1:     P: .01
  54.  
  55. ---------------------------------
  56.  
  57. ex 2: The Equations of triangle 
  58.  
  59. { 'SIN(VA)/a=SIN(VB)/b'
  60.   'SIN(VB)/b=SIN(VC)/c'
  61.   'SIN(VC)/v=SIN(VA)/a'
  62.   'a^2=b^2+c^2-2*b*c*COS(VA)'
  63.   'b^2=a^2+c^2-2*a*c*COS(VB)'
  64.   'c^2=c^2+c^2-2*a*b*COS(VC)'
  65.   'VA+VB+VC=180' }                     @ PS: deg
  66. STEQ HINIT 3 'a' STO 90 'VA' STO 30'VB' STO
  67. HFIND
  68.  
  69. The stack return:
  70.  
  71. 6: 'SIN(VA)/a=SIN(VB)...
  72. 5:              b: 1.5
  73. 4: 'a^2=b^2+c^2-2*b*c...
  74. 3:    c: 2.59807621135
  75. 2: 'c^2=b^2+a^2-2*a*b...
  76. 1:   VC: 59.9999999999
  77.  
  78. ---------------------------------
  79.  
  80. Remember it is not necessary to execute the HINIT if there is no change in the
  81. equations list.
  82.  
  83. ------------------------------------------------------------------------
  84. Jakob Hilmer                E-mail: jhilmer@natbas.ruc.dk
  85. Department of Science
  86. Roskilde University Centre, Denmark.
  87. ------------------------------------------------------------------------
  88. END_DOC
  89.  
  90. BEGIN_ASC hsolve.asc
  91. %%HP: ;
  92. "04B2083800518435F4C4655402A68696C6D6562704275736E246B65113377700
  93. 0000004700D07008133200D9D20E1632E4A2051000FA45000000000000E25A1E
  94. 4A2051000FBD8100000000000E25A147A20B21309C2A2E0CF130132DBBF12ABF
  95. 13CE224BAC1F88E1AFE2276BA15BF228DBF15DF22C423293632B21308133300D
  96. 9D20E1632E4A2051000FA45000000000000E25A1E4A2051000FBD81000000000
  97. 00E25A11C432D6E201087E1632D6E2010879C2A276BA15BCF19C2A2D6E201087
  98. 30132DBBF178BF168BC11C432D6E201097E1632D8732D9D20D6E201097233A22
  99. 79E18A73276BA15DF22D6E201097173A2279E18A73229E201333005DF228DBF1
  100. B21305DF22EF532C423229E20133200EF53293632B21308133400D9D20E16324
  101. 563284E204084071627976329C2A26C7D11C432D6E201026E1632B7FC1E4A205
  102. 100000000000000000009C2A2E0CF130132D6E201026E0CF14BAC178BF13CE22
  103. AFE22D9D209C2A290DA1ED2A2DBBF1D20B1B9691908E1B21305BF228DBF15DF2
  104. 2C4232EF53293632B21308133500D9D20E1632B7FC147A20B21309C2A2E0CF13
  105. 0132DBBF176BA1C423293632B21308133100D9D20E163247A20B21304563284E
  106. 20408407162797632DCC0284E2020541529E20133500B7FC11C432D6E201016E
  107. 16329C2A2D6E2010163013247A20B2130DBBF129E20133300D6E2010160DCF1C
  108. 4232D6E201016F7CF19C2A2D6E2010169C2A290DA13013276BA1C423229E2013
  109. 32009C2A2387C14563284E20408407162797632DCC029C2A2D6E201016301322
  110. 9E201334004563284E20408407162797632DBBF1B4402C4232EF53293632B213
  111. 08133000D9D20E1632233A25D2C178BF129E2013340084E202054158B9C11C43
  112. 2D6E2010F6D6E201067D6E2010C6E1632ED2A2D6E2010C69C2A276BA10A132D6
  113. E2010874563284E20408407162797632D6E2010876C7D178BF1D6E2010676F8E
  114. 1387E1BB69178BF13CE22AFE22D9D20F49B1ED2A2F49B150FA178BF13CE2278B
  115. F1D6BB1279E1AFE22D9D204563284E204084071627976329C2A26C7D1DBBF19C
  116. 2A276BA16C7D184E20205415D6E2010879C2A290DA16C7D1DBBF12ABF178BF1E
  117. B3A178BF13CE2268BC1233A2279E1AFE22D9D208DBF14B2A2B21305DF22E61F1
  118. DBBF178BF145632D6E2010F697632B4402D6E2010F629E2013340045632D6E20
  119. 106797632DCC02EB522233A2472C1B21305BF228DBF15DF22B21305BF228DBF1
  120. 5DF22C42323CE22233A2313C1AFE22D9D20D6E2010F629E20133000B21305DF2
  121. 2EF53293632B21308133600D9D20E16323392020000000000071808441293632
  122. B2130E4A208200093DFF0DBFFDB8FF169FF29AFF47BFFAAFFFE4A20280000000
  123. 0000000000000000140000000000000000000000000000000000000000000000
  124. 0000000000003200050846494E444000508494E49445100E1000410006DAA027
  125. 1"
  126. END_ASC
  127.  
  128. BYTES: #1720h 1059
  129.  
  130. BEGIN_UU hsolve.uue
  131. begin 644 hsolve.lib
  132. M2%!(4#0X+45`*X"#`!5(4T],5D4@:FAI;&UE<D!R=6,N9&L5,7-W`````'0`
  133. M#0>`,2,`G2W@82-.*E`!`*]4````````+J7AI`(5`/#;&```````X%(:="JP
  134. M$@/)HN+`'P,QTKL?HOLQ["*TRO&('OHN<K8:M2^"O1_5+\(D(SDVLA(#&#,#
  135. MT-D"'C;BI`(5`/!*!0``````X%(:3BI0`0"_C0$``````"ZE$4PC;2X0@.=A
  136. M(VTN$("7+"IGJU'+'\FBTN8"`7@#,=*['X?[8;@<P332Y@(!>1XVTG@CG2W0
  137. MY@(!>3*C(I<>J#=RMAK5+]+F`@%Y<:,BEQZH-R+I`C$S`-4O@KT?*S%0_2+^
  138. M-<(D(Y(N$#,"X%\C.3:R$@,8,P30V0(>-D)E(T@N0(`$%R:79R/)HF)\'<$T
  139. MTN8"`6(>-K+W'$XJ4`$```````````#)HN+`'P,QTN8"`6(._$&K'(?[,>PB
  140. M^B[2V0+)HI+0&MZBTKL?+;"Q:1D)Z+$2`[4O@KT?U2_")"/^-9)C(RLQ@#%3
  141. M`)TMX&$C>\]!IP(K,9`L*@[\,1`CO?MQMAI,,I)C(RLQ@#$3`)TMX&$C="JP
  142. M$@-4-H+D`@1(<&%R>3;2S"!(+B!0%"7I`C%3`'O/$4PC;2X0$.9A(\FBTN8"
  143. M`6$#,4*G`BLQT+L?DBX0,P/0Y@(!8=#\P20C;2X0$/;''\FBTN8"`6')HI+0
  144. M&@,Q<K8:3#(BZ0(Q(P#)HC)X'%0V@N0"!$AP87)Y-M+,(,FBTN8"`6$#,2+I
  145. M`C%#`%0V@N0"!$AP87)Y-M*['TL$PB0C_C628R,K,8`Q`P"=+>!A(S*C4BT<
  146. MA_LAZ0(Q0P!(+B!0%(6;',$TTN8"`6]M+A!@U^8"`6P>-N(M*FTN$,"6+"IG
  147. MJP$:(VTN$(!'92-(+D"`!!<FEV<C;2X0@&=\'8?[T>8"`7;VZ#%X'KN6<;@?
  148. MPRZB[R*=+?"4&]ZB\I0;!:]QN!_#+G*X'VV[(9<>^B[2V0)4-H+D`@1(<&%R
  149. M>3:2+"K&U]&['\FB<K8:QM>!Y`("15%M+A"`ERPJ":UA?!V]^R&Z'X?[X3L:
  150. MA_LQ["*&RR$S*G+IH>\BG2V`O1^THK(2`]4OXA8?O?MQN!]4-M+F`@%O>3:R
  151. M1"!M+A#P)ND",4,`5#;2Y@(!=GDVTLP@OB4B,RITPK$2`[4O@KT?U2^R$@.U
  152. M+X*]']4OPB0CPRXB,RH3PZ'O(ITMT.8"`6^2+A`S`+`2`]4OXE\C.3:R$@,8
  153. M,P;0V0(>-C*3`@(``````!<(2!228R,K,>"D`B@`D-/_T/O?B_]A^2^I_W3[
  154. MK_K_3BH@"```````````````00``````````````````````````````````
  155. <````(P!0@&24Y$0$``5(24Y)5`'@`0`4`&"M"F"M
  156. `
  157. end
  158. END_UU
  159.